home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / ds40bpds.zip / SAMPLE.BAS < prev    next >
BASIC Source File  |  1991-11-01  |  6KB  |  138 lines
  1. ' $INCLUDE: 'DOORSORC.INT'
  2. PROGNAME$ = "Door Source Sampler"
  3. RELEASE$ = "1.0"
  4. CALL ClrScrn
  5. CLOSE #1
  6.  
  7. ' Some features that you might want to try now that you're on this
  8. ' side:
  9. '    F3 key - Toggles the printer toggle on/off (You'll see it on the status line)
  10. '    F5 key - Shells to DOS! (And saves/restores the screen)
  11. '    Try adding the command line parameter LOCAL, it will make Door Source
  12. '    run in a local mode (mainly meant for your own testing, not for regular
  13. '    use). Door Source will still read the configuration file, except now
  14. '    you don't have to have bbs interface file (because DS will ask you for
  15. '    a name and if you want ansi)
  16. ' 
  17. CALL Send("Door Source 4.0 has many new features and additions", No, Yes, 10)
  18. CALL Send("To get the most out of this sampler, download a copy of it so", No, Yes, 10)
  19. CALL Send("can see how the new features are implemented!", No, Yes, 10)
  20.  
  21. CALL NL(1)
  22.  
  23. CALL Send("This is a demo of the new prompt input routine. It works best with ANSI on.", No, Yes, 11)
  24. Caps = Yes
  25. CALL PromptIncomm("Would you like to continue", Default1, 15, 1, 14)
  26. Caps = No
  27. IF ARG$ <> "Y" THEN CALL ExitDoor
  28. CALL NL(1)
  29.  
  30. CALL Send("This is a demo of the new entry prompt routine, it works well with any mode.", No, Yes, 11)
  31. CALL EntryIncomm("What do you want your alias to be (25 chars max) :", 25, 12, 14)
  32. CALL NL(1)
  33.  
  34. CALL Send("This is a demo of changing colors in mid-string without multiple calls.", No, Yes, 11)
  35. ' QSend is the same a Send except that it doesnt have the bell option or color option
  36. CALL QSend("@X0ABlue@X0BGreen@X0CRed@X0DMagenta@X0EYellow@X0FWhite", Yes)
  37.  
  38.  
  39. CALL NL(1)
  40.  
  41. CALL Send("This is a demo of the subsitution codes. (And that the Center routine will", No, Yes, 11)
  42. CALL Send("correctly calculate the right position to center it to.)", No, Yes, 11)
  43. WD$ = "Hello @FIRST@, today is @SYSDATE@."
  44. CALL Center(WD$)
  45. CALL Send(WD$, No, Yes, 13)
  46.  
  47. CALL NL(1)
  48.  
  49. CALL Send("Here are two demos, one of the protected input feature and the other", No, Yes, 11)
  50. CALL Send("of the limited input feature.", No, Yes, 11)
  51.  
  52. Protected.Input$ = "*" ' Make a * appear instead of what is typed
  53. CALL Incomm("What is your password?", No, No, 14)
  54. Protected.Input$ = ""  ' Disable the protected input
  55.  
  56. Table$ = "YN"           ' Allow only Y and N keys (backspace, enter and such are still allowed)
  57. CALL Incomm("You can only type Y and N, try it:", No, 1, 14)
  58. Table$ = Default.Table$ ' Set back to normal
  59.  
  60. CALL NL(1)
  61. CALL Send("The following will be a demo of the Windows routine in its NEW faster", No, Yes, 11)
  62. CALL Send("format. Unfortunetly, Windows is now a ANSI only routine. It will also", No, Yes, 11)
  63. CALL Send("show you the new WindowPrint and WindowInput routine, as well as the", No, Yes, 11)
  64. CALL Send("new MenuManager routine that is more friendly and handles more selections", No, Yes, 11)
  65. CALL QSend("@WAIT@", No)  ' Prints a Press [Any Key] to continue and waits
  66.  
  67. BackGroundColor = 1
  68. CALL ClrScrn
  69. CALL Windows(10, 10, 20, 70, 15, 1, 3, Yes)
  70. Row = 11
  71. Col = 11
  72. CALL WindowPrint("Hello there!", Row, Col, 14, 1)
  73. Row = 12
  74. Col = 11
  75. CALL WindowInput("What is your name?", 25, Row, Col, 12, 1)
  76.  
  77. BackGroundColor = 0
  78. CALL ClrScrn
  79.  
  80. DIM Menu$(11)
  81. Menu$(1) = "1@X0C) @X0FFirst option"
  82. Menu$(2) = "2@X0C) @X0FSecond option"
  83. Menu$(3) = "3@X0C) @X0FThird option"
  84. Menu$(4) = "4@X0C) @X0FFourth option"
  85. Menu$(5) = "5@X0C) @X0FFifth option"
  86. Menu$(6) = "6@X0C) @X0FSixth option"
  87. Menu$(7) = "7@X0C) @X0FSeveth option"
  88. Menu$(8) = "8@X0C) @X0FEighth option"
  89. Menu$(9) = "9@X0C) @X0FNinth option"
  90. Menu$(10) = "10@X0C)@X0FTenth option @X0B(@X0EBefore you could only have 9!@X0B)"
  91. Menu$(11) = "11@X0C)@X0FEleventh option"
  92. CALL MenuManager(Menu$(), Yes, 10, 11, 14, 0, 7, BarNum)
  93.  
  94. CALL Send("You picked " + STR$(BarNum), No, 2, 10)
  95.  
  96. ' Notice that instead of a Yes as the third parameter, a number 2 was
  97. ' put in place it. This will cause Door Source to send 2 enters after
  98. ' printing the screen, so you don't have to have CALL NL(1) right after it
  99. ' if you want a blank line after the line you just sent.
  100.  
  101. DIM Blck$(6)
  102.  
  103. Blck$(1) = "@X0BThis output may @X0Cnot@X0B look like anything special."
  104. Blck$(2) = "@X0FBut@X0B, it actually is! This is a example using the @X0Enew@X0B"
  105. Blck$(3) = "@X0ABlockSend@X0B routine. You can pass it an array and it will"
  106. Blck$(4) = "display it. Now you can easily @X0Fpre-program@X0C ENTIRE @X0B screens"
  107. Blck$(5) = "right into your program. You can use ANSI codes or the substitution"
  108. Blck$(6) = "codes too!"
  109.  
  110. CALL BlockSend(Blck$(), No, 6)
  111.  
  112. CALL NL(1)
  113.  
  114. CALL Send("This is a demo of the routine RainbowSend (by Daniel Sharpe)", No, Yes, 11)
  115. CALL RainbowSend("You've just won 1 MILLION dollars (not really!)", No, Yes, 10)
  116.  
  117. CALL ExitDoor
  118.  
  119. ' Of course there are lots of other features, but they can't all be shown
  120. ' in this program. Features such as routines to change DTR,CTS,and RTS
  121. ' status, a feature to stop a user from aborting a file being viewed with
  122. ' ViewFile, a feature to turn on/off carrier checking, a feature to
  123. ' that lets your program wrap itself up if the door has to expectedly end
  124. ' in case of loss of carrier or the sysop pressing F8, and the list goes
  125. ' on and on. To show you some numbers on how many changes have been done,
  126. ' here's two numbers:
  127. '  MAJOR changes (new routines, major changes to old): Over 35
  128. '  MINOR changes (new variables, optimization)       : Over 150
  129. ' Now in the minor changes, it doesnt mean 150 new variables, it means
  130. ' 150 minor changes to Door Source that include new variables and lots of
  131. ' other things. In fact, more unnessicary variables were removed than new
  132. ' ones were added. Now most of Door Source is VERY structured, there are
  133. ' virtually no GOTOs or GOSUB inside Door Source itself, instead there
  134. ' are many IF...END IFs, WHILE...WENDs, DO...LOOPs instead. The actual
  135. ' This version makes Door Source the most complete, most advanced,
  136. ' and the fastest door library for QuickBasic.
  137.  
  138.